﻿

Partial Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim isMobile As Boolean
        isMobile = Request.Browser.IsMobileDevice
        If Not isMobile Then
            Dim memberprofileHTML As String = ""
            Dim homePageStem As String = "memberprofile.aspx?"
            memberprofileHTML = memberprofileHTML & String.Format("<A HREF = ""{0}"" style = ""color:Red; font-size:1.2em;"">{1}</A>", homePageStem & "UserName=" & User.Identity.Name, "My Profile")
            PlaceHolder_memberprofile.Controls.Add(New LiteralControl(memberprofileHTML))
        Else
            Response.Redirect("mobileversion.aspx")
        End If
    End Sub
End Class